home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PRUS101.ZIP / TSPEAKER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-07-20  |  2.5 KB  |  77 lines
  1. { example programme TSPEAKER to demonstrate some sound effects provided by
  2.   the unit FSPEAKER }
  3. (****************************************************************************)
  4.  
  5. uses
  6.   fcrt,
  7.   fkbd,
  8.   fspeaker;
  9.  
  10. Procedure pause (s : string);
  11. begin
  12.   If not SoundsEnabled then exit;
  13.   writeln ('Next sound effect: ', s);
  14.   repeat until fkbd.keypressed;
  15.   if fkbd.readkey <> #27 then exit;
  16.   fspeaker.Nosound;
  17.   halt;
  18. END;
  19.  
  20. begin
  21. { SoundsEnabled := FALSE; }
  22.   Pause ('Alarm'           ); Alarm;
  23.   Pause ('Beep'            ); Beep;
  24.   Pause ('Bell'            ); Bell;
  25.   Pause ('Bell 2'          ); Bell2;
  26.   Pause ('Bip'             ); Bip;
  27.   Pause ('Boop'            ); Boop;
  28.   Pause ('Bop'             ); Bop;
  29.   Pause ('Buzz saw'        ); BuzzSaw;
  30.   Pause ('Car'             ); Car;
  31.   Pause ('Clec Clac'       ); ClecClac;
  32.   Pause ('Open whistle'    ); OpenWhistle;
  33.   write ('Close whistle'#13); CloseWhistle;
  34.   Pause ('Error beep'      ); ErrorBeep;
  35.   Pause ('Explosion'       ); Explosion;
  36.   Pause ('Explosion 2'     ); Explosion2;
  37.   Pause ('Falling'         ); Falling;
  38.   Pause ('Falling 2'       ); Falling2;
  39.   Pause ('Fanfare'         ); Fanfare;
  40.   Pause ('Flak'            ); Flak;
  41.   Pause ('Gun'             ); Gun;
  42.   Pause ('hi ring'         ); HiRing;
  43.   Pause ('Laser'           ); Laser;
  44.   Pause ('low ring'        ); LoRing;
  45.   Pause ('morse code'      ); MorseCode;
  46.   Pause ('MP'              ); MP;
  47.   Pause ('Mystic'          ); Mystic;
  48.   Pause ('Mystic 2'        ); Mystic2;
  49.   Pause ('Mystic 3'        ); Mystic3;
  50.   Pause ('Mystic 4'        ); Mystic4;
  51.   Pause ('Mystic 5'        ); Mystic5;
  52.   Pause ('Noname 1'        ); Noname1;
  53.   Pause ('Noname 2'        ); Noname2;
  54.   Pause ('Noname 3'        ); Noname3;
  55.   Pause ('Noname 4'        ); Noname4;
  56.   Pause ('Noname 5'        ); Noname5;
  57.   Pause ('Nuke'            ); Nuke;
  58.   Pause ('Ploing '         ); Ploing(20);
  59.   Pause ('Rain'            ); Rain;
  60.   Pause ('Random sound'    ); RandomSound;
  61.   Pause ('Sinus beep'      ); SinusBeep;
  62.   Pause ('Starting car'    ); StartingCar;
  63.   Pause ('toot toot toot'  ); TootTootToot;
  64.   Pause ('Warning'         ); Warning;
  65.   Pause ('Windows beep'    ); WindowsBeep;
  66.   Pause ('wrong sequence'  ); WrongSequence;
  67.   Pause ('Zip 1'           ); Zip1;
  68.   Pause ('Zip 2'           ); Zip2;
  69.   Pause ('');
  70. { routines with parameters: }
  71. (*
  72.   Beam   (Heigth : Word);       { Makes a 'beam' sound }
  73.   Ploing (step   : byte);       { Makes a sawing noise. }
  74.   Zap    (Key    : Word);       { Makes a sound like ZZZZaaap }
  75. *)
  76. end.
  77.